$file = "newone1_newcustomcdf_plus2.txt";
open(BUFF,$file);
open(WRBUFF,">newone1__newcustomcdf_plus2.cdf");
while($line = <BUFF>)
{
	chomp $line;
	$line =~ s/\n//g;
	$line =~ s/\r//g;
	@array = split("\t",$line);
	$len = scalar(@array)-1;
	#print $array[$len]."\n";
	if($array[$len] eq "")
	{
		
		pop(@array);
	}
	$line = join("\t",@array);
	#print $line."\n";
	print WRBUFF $line."\n";

}
